% V20210224 - 14.4 GW_INJECT_CSS

INCLUDE "GW.bas"

% Create a page.
p = GW_NEW_PAGE()

% Prepare title bar string.
Title$ = GW_ADD_BAR_TITLE$("Inject CSS Example")

% Add title to page.
GW_ADD_TITLEBAR(p, Title$)

% Add custom CSS to show large permanent
% scrollbar at the right of textboxes.
GW_INJECT_CSS(p, "textarea.ui-input-text {height:inherit !important; overflow-y:auto !important} ::-webkit-scrollbar{width:35px !important} ::-webkit-scrollbar-track{background:rgba(0,0,0,0.5) !important} ::-webkit-scrollbar-thumb{margin-right:5px !important;border-radius:5px !important;background:rgba(255,255,255,0.5) !important}")

% Now add a 12-row textbox, filled with a sample program.
GRABFILE buf$, "../source/Sample_Programs/f29_stack.bas"
GW_USE_THEME_CUSTO_ONCE("rows=12")
GW_ADD_INPUTBOX(p, "Enjoy browsing this sample program with a big comfy scrollbar:", buf$)

% Show the page.
GW_RENDER(p)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()
 POPUP r$

% Until the BACK key is pressed.
UNTIL r$ = "BACK"

END "End of Inject CSS example."